home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.34
/
appicon
/
appicon1.p
< prev
next >
Wrap
Text File
|
1994-08-19
|
2KB
|
68 lines
{ Proramm: AppIcon1
Version: 0.01
Datum: 16.06.94
Sprache: KickPascal 2.12/OS2-Includes
Sinn: Programm zeigt wie man ein einfaches AppIcon auf der WB
programmiert und wie man mit selbigen arbeitet
Autor: PackMAN
c/o Falk Zühlsdorff
Lindenberg 66
D-98693 Ilmenau/Thüringen
Kommentar: nur für Purity-Pascal-PD-Serie }
PROGRAM appicon;
USES EXEC;
{$INCL 'dos.lib',
'workbench/startup.h',
'workbench/workbench.h',
'icon.lib',
'wb.lib'}
VAR dobj : p_DiskObject;
myPort : p_MsgPort;
MyAppIcon : p_AppIcon;
AppMsg : p_AppMessage;
ex : boolean;
BEGIN
ex:=false;
IconBase:=OpenLibrary('icon.library',37);
IF IconBase<>NIL
THEN
BEGIN
workbenchbase:=OpenLibrary('workbench.library',37);
IF workbenchbase<>NIL
THEN
BEGIN
dobj:=GetDefDiskObject(WBDISK);
dobj^.do_Type:=0;
myport:=CreateMsgPort;
myappicon:=AddAppIconA(0,0,'TestAppIcon',myport,NIL,dobj,NIL);
{ IF myAppIcon<>NIL
THEN writeln('Icon on the WBScreen'); }
REPEAT
AppMsg:=wait_port(myport);
AppMsg:=get_msg(myport);
Reply_Msg(AppMsg);
IF AppMsg^.am_NumArgs=0
THEN ex:=true; {Icon aktiviert}
UNTIL ex;
ex:=RemoveAppIcon(myAppIcon);
FreeDiskObject(dobj);
DeleteMsgPort(myport);
END;
END;
END.